Suzy B Software 2

home *** CD-ROM | disk | FTP | other *** search

/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / stos / tennis / stos_68 / tennis.bas (.txt) < prev next >

Wrap

Atari STOS Basic | 1987-04-22 | 96KB | 337 lines

1 BREAK 10 GET PALETTE 100 IF 101 IF 102 IF 103 IF 104 IF 105 IF 106 IF 107 IF 108 IF 109 IF 11 VARNAME 110 IF 111 IF 112 IF 113 GOTO 114 REM 115 IF 116 IF 117 IF 118 IF 119 IF 12 SCREEN COPY 120 IF 121 ENVEL 122 RETURN 123 REM 124 REM 125 GET PALETTE 126 LIMIT MOUSE 127 X MOUSE 128 VARNAME 129 COLOUR 13 COLOUR 130 VARNAME 131 IF 132 IF 133 IF 134 IF 135 IF 136 SPRITE 137 SPRITE 138 SHOW 139 WAIT 14 VARNAME 140 MOVE Y 141 VARNAME 142 IF 143 IF 144 IF 145 IF 146 IF 147 IF 148 IF 149 IF 15 REM 150 IF 151 IF 152 IF 153 IF 154 IF 155 REM 156 GET PALETTE 157 LIMIT MOUSE 158 X MOUSE 159 VARNAME 16 LOCATE 160 COLOUR 161 VARNAME 162 IF 163 IF 164 IF 165 IF 166 IF 167 SPRITE 168 SPRITE 169 SHOW 17 LOCATE 170 WAIT 171 MOVE Y 172 VARNAME 173 IF 174 IF 175 IF 176 IF 177 IF 178 IF 179 IF 18 LOCATE 180 IF 181 IF 182 IF 183 IF 184 IF 185 IF 186 IF 187 IF 188 IF 189 IF 19 LOCATE 190 REM 191 REM 192 REM 193 VARNAME 194 SPRITE 195 IF 196 IF 197 GOTO 198 VARNAME 199 IF 2 BELL 20 LOCATE 200 IF 201 MOVE 202 VARNAME 203 LIMIT MOUSE 204 X MOUSE 205 ENVEL 206 IF 207 IF 208 IF 209 IF 21 LOCATE 210 IF 211 MOVE 212 IF 213 IF 214 IF 215 IF 216 IF 217 MOVE 218 GOTO 219 REM 22 MOVE 220 REM 221 REM 222 REM 223 IF 224 IF 225 IF 226 IF 227 IF 228 IF 229 IF 23 IF 230 IF 231 IF 232 IF 233 IF 234 IF 235 IF 236 IF 237 IF 238 IF 239 IF 24 IF 240 VARNAME 241 GOTO 242 REM 243 REM 244 REM 245 REM 246 REM 247 IF 248 VARNAME 249 IF 25 IF 250 IF 251 IF 252 IF 253 IF 254 IF 255 IF 256 IF 257 IF 258 IF 259 IF 26 IF 260 IF 261 IF 262 IF 263 IF 264 IF 265 IF 266 IF 267 IF 268 IF 269 IF 27 REM 270 IF 271 IF 272 IF 273 IF 274 IF 275 IF 276 IF 277 IF 278 IF 279 GOTO 28 REM 280 MOVE 281 VARNAME 282 IF 283 VARNAME 284 IF 285 IF 286 IF 287 IF 288 IF 289 GOTO 29 REM 290 IF 291 IF 292 IF 293 IF 294 GOTO 295 MOVE Y 296 IF 297 IF 298 MOVE 299 RETURN 3 REM 30 REM 300 MOVE 301 MOVE Y 302 IF 303 IF 304 IF 305 IF 306 IF 307 IF 308 MOVE 309 RETURN 31 SPRITE 310 CLS 311 GET PALETTE 312 SCREEN COPY 313 GET PALETTE 314 INC 315 VARNAME 316 VARNAME 317 LOCATE 318 LOCATE 319 LOCATE 32 LIMIT MOUSE 320 LOCATE 321 LOCATE 322 LOCATE 323 LOCATE 324 LOCATE 325 LOCATE 326 LOCATE 327 LOCATE 328 LOCATE 329 LOCATE 33 SET ZONE 330 IF 331 IF 332 REPEAT 333 IF 334 SCREEN COPY 335 BELL 336 RETURN 34 SET ZONE 35 SET ZONE 36 X MOUSE 37 WAIT 38 WHILE 39 SPRITE 4 CLICK 40 WEND 41 MOVE Y 42 REPEAT 43 UNTIL 44 CHANGE MOUSE 45 VARNAME 46 VARNAME 47 IF 48 IF 49 IF 5 KEY 50 IF 51 VARNAME 52 IF 53 IF 54 IF 55 IF 56 IF 57 IF 58 IF 59 IF 6 DIM 60 IF 61 IF 62 IF 63 IF 64 IF 65 GOTO 66 REM 67 IF 68 IF 69 IF 7 SCROLL 70 IF 71 IF 72 IF 73 ENVEL 74 RETURN 75 REM 76 REM 77 REM 78 REM 79 SPRITE 8 VARNAME 80 LIMIT MOUSE 81 SET ZONE 82 SET ZONE 83 SET ZONE 84 X MOUSE 85 WAIT 86 WHILE 87 SPRITE 88 WEND 89 MOVE Y 9 VARNAME 90 REPEAT 91 UNTIL 92 CHANGE MOUSE 93 VARNAME 94 VARNAME 95 IF 96 IF 97 IF 98 IF 99 VARNAME